COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "DIAG"
C00004 ENDMK
C⊗;
BEGIN "DIAG"
REQUIRE "GRAHDR.SAI[GRA,HPM]" SOURCE_FILE;

INTEGER FJ,I,J,K,L,M,N; REAL P,Q;
REAL ARRAY X,Y[1:10];

FJ←FILJOB("DSK:BORD.GFL[DOC,HPM]");

DDINIT; SCREEN(-3,-5,3,5);

LINE(-3,-5,-3,5); LINE(3,5,-3,5);
LINE(3,5,3,-5); LINE(-3,-5,3,-5);

FOR Q←-5,5 DO
FOR P←-3 STEP .25 UNTIL 3 DO ELLIPS(P-.1,Q-.1,P+.1,Q+.1);

FOR P←-3,3 DO
FOR Q←-5 STEP .25 UNTIL 5 DO ELLIPS(P-.1,Q-.1,P+.1,Q+.1);

DPYUP(-1);
KILJOB(FJ);

END;